perm filename ZOTZ.DAT[MUS,LCS] blob
sn#166838 filedate 1975-07-02 generic text, type T, neo UTF8
RCDFLG←-1;
< ZOTZ .DAT -- RANDOM NUMBER= 1
PLAY;
TOOT 0.000 0.100 4000.000 90.000 F1 F3 1.000
;PRINT(P1);< TOOT 1
TOOT 0.100 0.097 3700.000 153.667 F1 F3 0.967
;PRINT(P1);< TOOT 2
TOOT 0.200 0.093 3400.000 217.333 F1 F3 0.934
;PRINT(P1);< TOOT 3
TOOT 0.300 0.090 3100.000 281.000 F1 F3 0.901
;PRINT(P1);< TOOT 4
TOOT 0.400 0.087 2800.000 344.667 F1 F3 0.868
;PRINT(P1);< TOOT 5
TOOT 0.500 0.084 2500.000 408.333 F1 F3 0.835
;PRINT(P1);< TOOT 6
TOOT 0.600 0.080 2260.000 472.000 F1 F3 0.802
;PRINT(P1);< TOOT 7
TOOT 0.700 0.077 2020.000 535.667 F1 F3 0.769
;PRINT(P1);< TOOT 8
TOOT 0.800 0.074 1780.000 599.333 F1 F3 0.736
;PRINT(P1);< TOOT 9
TOOT 0.900 0.070 1540.000 663.000 F1 F3 0.703
;PRINT(P1);< TOOT 10
TOOT 1.000 0.067 1300.000 726.667 F1 F3 0.670
;PRINT(P1);< TOOT 11
TOOT 1.100 0.064 1380.000 790.333 F1 F3 0.637
;PRINT(P1);< TOOT 12
TOOT 1.200 0.060 1460.000 854.000 F1 F3 0.604
;PRINT(P1);< TOOT 13
TOOT 1.300 0.057 1540.000 917.667 F1 F3 0.571
;PRINT(P1);< TOOT 14
TOOT 1.400 0.054 1620.000 981.333 F1 F3 0.538
;PRINT(P1);< TOOT 15
TOOT 1.500 0.051 1700.000 1045.000 F1 F3 0.505
;PRINT(P1);< TOOT 16
TOOT 1.600 0.047 1580.000 1108.667 F1 F3 0.472
;PRINT(P1);< TOOT 17
TOOT 1.700 0.044 1460.000 1172.333 F1 F3 0.439
;PRINT(P1);< TOOT 18
TOOT 1.800 0.041 1340.000 1236.000 F1 F3 0.406
;PRINT(P1);< TOOT 19
TOOT 1.900 0.037 1220.000 1299.667 F1 F3 0.373
;PRINT(P1);< TOOT 20
TOOT 2.000 0.034 1100.000 1363.333 F1 F3 0.340
;PRINT(P1);< TOOT 21
TOOT 2.100 0.031 1070.000 1427.000 F1 F3 0.307
;PRINT(P1);< TOOT 22
TOOT 2.200 0.027 1040.000 1490.667 F1 F3 0.274
;PRINT(P1);< TOOT 23
TOOT 2.300 0.024 1010.000 1554.333 F1 F3 0.241
;PRINT(P1);< TOOT 24
TOOT 2.400 0.021 980.000 1618.000 F1 F3 0.208
;PRINT(P1);< TOOT 25
TOOT 2.500 0.018 950.000 1681.667 F1 F3 0.175
;PRINT(P1);< TOOT 26
TOOT 2.600 0.014 995.000 1745.333 F1 F3 0.142
;PRINT(P1);< TOOT 27
TOOT 2.700 0.011 1040.000 1809.000 F1 F3 0.109
;PRINT(P1);< TOOT 28
TOOT 2.800 0.008 1085.000 1872.667 F1 F3 0.076
;PRINT(P1);< TOOT 29
TOOT 2.900 0.004 1130.000 1936.333 F1 F3 0.043
;PRINT(P1);< TOOT 30
TOOT 3.000 0.001 1175.000 2000.000 F1 F3 0.010
;PRINT(P1);< TOOT 31
TOOT 3.100 0.004 1220.000 1936.333 F1 F3 0.043
;PRINT(P1);< TOOT 32
TOOT 3.200 0.008 1265.000 1872.667 F1 F3 0.076
;PRINT(P1);< TOOT 33
TOOT 3.300 0.011 1310.000 1809.000 F1 F3 0.109
;PRINT(P1);< TOOT 34
TOOT 3.400 0.014 1355.000 1745.333 F1 F3 0.142
;PRINT(P1);< TOOT 35
TOOT 3.500 0.017 1400.000 1681.667 F1 F3 0.175
;PRINT(P1);< TOOT 36
TOOT 3.600 0.021 1580.000 1618.000 F1 F3 0.208
;PRINT(P1);< TOOT 37
TOOT 3.700 0.024 1760.000 1554.333 F1 F3 0.241
;PRINT(P1);< TOOT 38
TOOT 3.800 0.027 1940.000 1490.667 F1 F3 0.274
;PRINT(P1);< TOOT 39
TOOT 3.900 0.031 2120.000 1427.000 F1 F3 0.307
;PRINT(P1);< TOOT 40
TOOT 4.000 0.034 2299.999 1363.333 F1 F3 0.340
;PRINT(P1);< TOOT 41
TOOT 4.100 0.037 2639.999 1299.667 F1 F3 0.373
;PRINT(P1);< TOOT 42
TOOT 4.200 0.041 2980.000 1236.000 F1 F3 0.406
;PRINT(P1);< TOOT 43
TOOT 4.300 0.044 3320.000 1172.333 F1 F3 0.439
;PRINT(P1);< TOOT 44
TOOT 4.400 0.047 3660.000 1108.667 F1 F3 0.472
;PRINT(P1);< TOOT 45
TOOT 4.500 0.050 4000.000 1045.000 F1 F3 0.505
;PRINT(P1);< TOOT 46
TOOT 4.600 0.054 3900.000 981.333 F1 F3 0.538
;PRINT(P1);< TOOT 47
TOOT 4.700 0.057 3800.000 917.667 F1 F3 0.571
;PRINT(P1);< TOOT 48
TOOT 4.800 0.060 3700.000 854.000 F1 F3 0.604
;PRINT(P1);< TOOT 49
TOOT 4.900 0.064 3600.000 790.333 F1 F3 0.637
;PRINT(P1);< TOOT 50
TOOT 5.000 0.067 3500.000 726.667 F1 F3 0.670
;PRINT(P1);< TOOT 51
TOOT 5.100 0.070 3400.000 663.000 F1 F3 0.703
;PRINT(P1);< TOOT 52
TOOT 5.200 0.074 3300.000 599.333 F1 F3 0.736
;PRINT(P1);< TOOT 53
TOOT 5.300 0.077 3200.000 535.667 F1 F3 0.769
;PRINT(P1);< TOOT 54
TOOT 5.400 0.080 3100.000 472.000 F1 F3 0.802
;PRINT(P1);< TOOT 55
TOOT 5.500 0.084 3000.000 408.333 F1 F3 0.835
;PRINT(P1);< TOOT 56
TOOT 5.600 0.087 2900.000 344.667 F1 F3 0.868
;PRINT(P1);< TOOT 57
TOOT 5.700 0.090 2800.000 281.000 F1 F3 0.901
;PRINT(P1);< TOOT 58
TOOT 5.800 0.093 2700.000 217.333 F1 F3 0.934
;PRINT(P1);< TOOT 59
TOOT 5.900 0.097 2600.000 153.666 F1 F3 0.967
;PRINT(P1);< TOOT 60
FINISH; < ZOTZ .DAT